subroutine lmess(nunit,str1,str2)
  implicit none
  integer,intent(in) :: nunit
  character,intent(in) :: str1*(*),str2*(*)
  write(nunit,'(3x,"Message from ",a,1x,"-",a)') str1,str2
end subroutine lmess
